home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 November / 1988-11.d64 / font idx (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  2.5 KB  |  119 lines
  1. 10 dim a$(33)
  2. 20 printchr$(14):poke53280,0:poke53281,0:poke646,3
  3. 30 print"[147]                                 [146]"
  4. 40 print"         [146] [199][197][207][211] [198]ont [201].[196]. [197]ditor  [146]"
  5. 50 print"                                 [146]"
  6. 60 print"     [160][195]opyright 1988 [195][207][205][208][213][212][197]! [208]ub.,"
  7. 70 print"           [193]ll [210]ights [210]eserved"
  8. 80 print"         [208]ut [198][207][206][212] [196]isk in [196]rive: [146]"
  9. 90 print"               [200]it a [203]ey."
  10. 100 geta$:ifa$=""then100
  11. 110 print"[147]  [215]hen listing reaches [198][207][206][212] to edit,"
  12. 120 print"               [200]it a [203]ey."
  13. 130 open15,8,15
  14. 140 open1,8,0,"$"
  15. 150 get#1,a$,a$
  16. 160 get#1,a$,a$
  17. 170 ifa$=""then290
  18. 180 get#1,a$,a$
  19. 190 get#1,a$
  20. 200 ifa$=chr$(34)thent=t+1
  21. 210 ifa$=chr$(34)ort<>1then230
  22. 220 n$=n$+a$
  23. 230 if a$=""then250
  24. 240 goto190
  25. 250 printn$
  26. 260 getd$:ifd$<>""then290
  27. 270 n$="":t=0
  28. 280 goto160
  29. 290 close1:close15
  30. 300 print"[205]ove cursor to selection, [200]it [210][197][212][213][210][206][146]"
  31. 310 inputf$:c$=f$
  32. 320 y$=""
  33. 330 fori=1to16-len(f$):f$=f$+chr$(160):next
  34. 340 for i= 1 to 16
  35. 350 b=asc(mid$(f$,i,1))
  36. 360 if b<192 then380
  37. 370 b=b-96
  38. 380 y$=y$+chr$(b)
  39. 390 next i
  40. 400 f$=y$
  41. 410 close15:close1
  42. 420 open1,8,15,"i:0":open2,8,2,"#0"
  43. 430 t=18:s=1
  44. 440 print#1,"u1";2;0;t;s
  45. 450 print#1,"b-p";2;0:get#2,t$,s$
  46. 460 t=asc(t$+chr$(0)):s=asc(s$+chr$(0))
  47. 470 for i=0 to 7
  48. 480 b$=""
  49. 490 print#1,"b-p";2;32*i+2
  50. 500 get#2,q$,r$,p$
  51. 510 forj=1 to 16
  52. 520 get#2,a$:b$=b$+a$
  53. 530 next j
  54. 540 if b$=y$ then goto580
  55. 550 next i
  56. 560 ift=0thenprint"no file":close1:close2:end
  57. 570 goto440
  58. 580 get#2,t$,s$:t=asc(t$+chr$(0)):s=asc(s$+chr$(0))
  59. 590 j=33
  60. 600 print#1,"u1";2;0;t;s
  61. 610 print#1,"b-p";2;128
  62. 620 get#2,l$,h$
  63. 630 l=asc(l$+chr$(0))
  64. 640 h=asc(h$+chr$(0))
  65. 650 g=l+256*h
  66. 660 if y<>15 theny=15:o=g
  67. 670 print"[147]  [195]urrent [201][196]# for  ";c$;" [146] is ";g
  68. 680 print"  [197]dit [201][196]# ? ([217][146]/[206][146])"
  69. 690 geta$:ifa$=""then690
  70. 700 if a$<>"y" and a$<>"n" then690
  71. 710 if a$="y" then740
  72. 720 ifo=g then1040:rem quit
  73. 730 goto820
  74. 740 input"  [195]hange to";n
  75. 750 ifn=0 or n>1027 then print"[205]ust be between 1 and 1027[145]":goto740
  76. 760 h=int(n/256):h$=chr$(h)
  77. 770 l=256*(n/256-h):l$=chr$(l)
  78. 780 print#1,"b-p";2;128
  79. 790 print#2,l$;h$;
  80. 800 print#1,"u2";2;0;t;s
  81. 810 goto590
  82. 820 print#1,"u2";2;0;t;s
  83. 830 print#1,"u1";2;0;t;s
  84. 840 k=130
  85. 850 print#1,"b-p";2;k
  86. 860 fori=0to j step 2
  87. 870 get#2,l$,h$
  88. 880 l=asc(l$+chr$(0))
  89. 890 h=asc(h$+chr$(0))
  90. 900 g=l+256*h
  91. 910 if g=0 then j=j-2:goto980
  92. 920 g=g-64*(o-n)
  93. 930 h=int(g/256)
  94. 940 l=(g/256-h)*256
  95. 950 a$(i)=chr$(l)
  96. 960 a$(i+1)=chr$(h)
  97. 970 next i
  98. 980 print#1,"u1";2;0;t;s
  99. 990 print#1,"b-p";2;k
  100. 1000 for i= 0toj step2
  101. 1010 print#2,a$(i);a$(i+1);
  102. 1020 next i
  103. 1030 print#1,"u2";2;0;t;s
  104. 1040 close1:close2
  105. 1050 print"[147]                [195][207][205][208][204][197][212][197]  "
  106. 1060 print"           [197]dit [193]nother ([217][146]/[206][146] ?"
  107. 1070 geta$:ifa$<>"y"and a$<>"n"then1070
  108. 1080 if a$="y" then80
  109. 1090 close1:close2
  110. 1100 print"[147]             [210][197][194][207][207][212] [199][197][207][211] ? [146]"
  111. 1110 print"              [217][146]es or [206][146]o ?"
  112. 1120 geta$:ifa$<>"y"and a$<>"n"then1120
  113. 1130 ifa$="n"then end
  114. 1140 print"[147]      [201]nsert [199][197][207][211] [194]ootdisk in [196]rive [146]"
  115. 1150 print"              [200]it [210][197][212][213][210][206]"
  116. 1160 geta$:ifa$=""then1160
  117. 1170 load"geos",8,1
  118. 1180 end
  119.